00200		INTEGER A(0/62),OCC(0/62),T10,T11,T12,T13,T21,T30,T40,T53,T23
00300		DATA(A(K),K=0,20)/4,2,1,2,4,2,1,2,4,1,3,2,4,1,1,2,3,4,1,2,3/
00400		DATA(A(K),K=21,41)/4,3,1,3,4,3,1,2,2,1,4,2,2,1,2,1,3,4,2,1,3/
00500		DATA(A(K),K=42,62)/4,2,3,1,4,2,3,1,1,1,2,1,1,1,2,1,4,3,2,1,4/
00600	
00700		DO 1 I=1,62
00800	1	OCC(I)=0
00900	
01000		N=0
01100	
01200		DO 2 I1=0,56,7
01250		OCC(I1)=1
01300		T10=A(I1)
01400		T11=A(I1+1)
01500		T12=A(I1+2)
01600		T13=A(I1+3)
01700		DO 3 I2=0,56,7
01800		IF (OCC(I2).NE.0) GO TO 3
01900		OCC(I2)=1
02000		DO 4 J2=0,3
02100		IF(T12+A(I2+J2).NE.5) GO TO 4
02200		T21=A(I2+J2+1)
02300		T23=A(I2+J2+3)
02400		DO 5 I3=0,56,7
02500		IF (OCC(I3).NE.0) GO TO 5
02600		OCC(I3)=1
02700		DO 6 J3=0,3
02800		IF (T21+A(I3+J3+3).NE.5) GO TO 6
02900		T30=A(I3+J3)
03000		DO 7 I4=0,56,7
03100		IF(OCC(I4).EQ.1) GO TO 7
03200		OCC(I4)=1
03300		DO 8 J4=0,3
03400		IF(T30+A(I4+J4+2).NE.5) GO TO 8
03500		IF(T11+A(I4+J4+3).NE.5) GO TO 8
03600		T40=A(I4+J4)
03700		DO 9 I5=0,56,7
03800		IF(OCC(I5).EQ.1) GO TO 9
03900		OCC(I5)=1
04000		DO 10 J5=0,3
04100		IF (T40+A(I5+J5+2).NE.5) GO TO 10
04200		T53=A(I5+J5+3)
04300		DO 11 I6=0,56,7
04400		IF(OCC(I6).EQ.1) GO TO 11
04500		OCC(I6)=1
04600		DO 12 J6=0,3
04700		IF(T10+A(I6+J6+2).NE.5) GO TO 12
04800		IF(T53+A(I6+J6+1).NE.5) GO TO 12
04900		DO 13 I7=0,56,7
05000		IF(OCC(I7).EQ.1) GO TO 13
05100		OCC(I7)=1
05200		DO 14 J7=0,3
05300		IF(A(I6+J6+3)+A(I7+J7+1).NE.5) GO TO 14
05400		DO 15 I8=0,56,7
05500		IF(OCC(I8).EQ.1) GO TO 15
05600		OCC(I8)=1
05700		DO 16 J8=0,3
05800		IF(A(I7+J7+2)+A(I8+J8).NE.5) GO TO 16
05900		IF(T13+A(I8+J8+1).NE.5) GO TO 16
06000		DO 17 I9=0,56,7
06100		IF(OCC(I9).EQ.1) GO TO 17
06200		DO 18 J9=0,3
06300		IF (T23+A(I9+J9+1).NE.5) GO TO 18
06400		IF(A(I8+J8+2)+A(I9+J9).EQ.5) N=N+1
06500	18	CONTINUE
06600	17	CONTINUE
06700	16	CONTINUE
06800		OCC(I8)=0
06900	15	CONTINUE
07000	14	CONTINUE
07100		OCC(I7)=0
07200	13	CONTINUE
07300	12	CONTINUE
07400		OCC(I6)=0
07500	11	CONTINUE
07600	10	CONTINUE
07700		OCC(I5)=0
07800	9	CONTINUE
07900	8	CONTINUE
08000		OCC(I4)=0
08100	7	CONTINUE
08200	6	CONTINUE
08300		OCC(I3)=0
08400	5	CONTINUE
08500	4	CONTINUE
08600		OCC(I2)=0
08700	3	CONTINUE
08800		OCC(I1)=0
08900	2	CONTINUE
09000	
09100		TYPE 20,N
09200	20	FORMAT(5I6)
09300		END